home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok82 / plot / source / mymathlib.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-04  |  1.4 KB  |  73 lines
  1. (*********************************************************************)
  2. (*
  3.    :Program.    MyMathLib
  4.    :Author.     Stefan Köhle
  5.    :Address.
  6.    :Phone.
  7.    :shortcut.
  8.    :Version.    1.0
  9.    :Date.       6.11.90
  10.    :Copyright.  nix
  11.    :Language.   Modula-II.
  12.    :Translator. M2Amiga V4.107d
  13.    :Imports.
  14.    :UpDate.
  15.    :Contents.
  16.    :Remark.
  17.  
  18. **********************************************************************)
  19.  
  20. IMPLEMENTATION MODULE MyMathLib;
  21.  
  22.    FROM SYSTEM IMPORT FFP,LONGSET,CAST ;
  23.    FROM InOut IMPORT WriteInt,WriteString,WriteLn ;
  24.    FROM FFPConversions IMPORT RealToStr ;
  25.    FROM RealInOut IMPORT WriteReal ;
  26.  
  27.  
  28.  
  29.    PROCEDURE RealToInt(x: REAL):INTEGER ;
  30.      BEGIN
  31.         RETURN (TRUNC(x)) ;
  32.      END RealToInt ;
  33.  
  34.  
  35.    PROCEDURE FFPToInt(x: FFP): INTEGER ;
  36.      BEGIN
  37.         RETURN (TRUNC(x)) ;
  38.      END FFPToInt ;
  39.  
  40.  
  41.    PROCEDURE IntToReal(x:INTEGER): REAL ;
  42.      BEGIN
  43.         IF x >= 0 THEN
  44.            RETURN (FLOAT(CARDINAL(x))) ;
  45.         ELSE
  46.            RETURN(-FLOAT(CARDINAL(ABS(x)))) ;
  47.         END (* IF *) ;
  48.      END IntToReal ;
  49.  
  50.  
  51.    PROCEDURE IntToFFP(x:INTEGER): FFP ;
  52.      BEGIN
  53.        RETURN FFP(x) ;
  54.      END IntToFFP ;
  55.  
  56.  
  57.    PROCEDURE FFPToStr(ffp:FFP ; VAR string: ARRAY OF CHAR) ;
  58.      VAR err: BOOLEAN ;
  59.  
  60.      BEGIN
  61.  
  62.      IF ABS(ffp) < 1000.0 THEN
  63.         RealToStr(ffp,string,6,3,FALSE,err) ;
  64.      ELSE
  65.         RealToStr(ffp,string,8,2,TRUE,err) ;
  66.      END ;
  67.  
  68.      IF err THEN WriteString('ERROR') ; WriteLn ; END ;
  69.  
  70.      END FFPToStr;
  71.  
  72. END MyMathLib .
  73.